home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / utility / 54 / utl / dump.bas < prev    next >
Encoding:
BASIC Source File  |  1986-09-18  |  1.3 KB  |  46 lines
  1. 10    DEF SEG=0
  2. 20    CLEARW 2: FULLW 2
  3. 30    A2$="" : ADRS%=0 : CNT2=0
  4. 40    DIM DMPFILE(8000),DMPTMP(16)
  5. 50    CNT=VARPTR(DMPFILE(0)): CNT=CNT-1
  6. 60    INPUT "File to dump"; FLIN$
  7. 70    PRINT "Press 'Q' to Quit..."
  8. 80    FOR I=1 TO LEN(FLIN$)
  9. 90    A$=MID$(FLIN$,I,1)
  10. 100   IF A$="." THEN FLIN1$=A2$: GOTO 140
  11. 110   PUSHKEY=INP(-2)
  12. 120   NEXT I
  13. 130   FLIN1$=FLIN$
  14. 140   BLOAD FLIN$, VARPTR(DMPFILE(0))
  15. 150   GOSUB 2000
  16. 160   ADRS$=HEX$(ADRS%)
  17. 170   ON LEN(ADRS$) GOTO 180,190,200,210
  18. 180   ADRS$="000"+ADRS$: GOTO 210
  19. 190   ADRS$="00"+ADRS$: GOTO 210
  20. 200   ADRS$="0"+ADRS$
  21. 210   PRINT ;ADRS$;: PRINT " ";
  22. 220   FOR J=1 TO 16
  23. 230   D1%=ASC(CHR$(DMPTMP(J)))
  24. 240   D1$=HEX$(D1%)
  25. 250   IF LEN(D1$)=1 THEN D1$="0"+D1$
  26. 260   PRINT ;D1$;: PRINT " ";
  27. 270   NEXT J
  28. 280   FOR J=1 TO 16
  29. 290   D3$=CHR$(DMPTMP(J))
  30. 300   D2=ASC(D3$)
  31. 310   IF D2>31 AND D2<128 THEN PRINT D3$;: GOTO 330
  32. 320   PRINT ".";
  33. 330   ADRS%=ADRS%+1
  34. 340   NEXT J
  35. 350   PRINT
  36. 360   GOTO 150
  37. 2000  FOR I=1 TO 16
  38. 2010  DMPTMP(I)=PEEK(CNT)
  39. 2020  CNT=CNT+1
  40. 2030  NEXT I
  41. 2040  CNT2=CNT2+1
  42. 2050  IF CNT2<17 THEN 2080
  43. 2060  P=INP(2): IF P=81 OR P=113 THEN END
  44. 2070  PRINT: CNT2=1
  45. 2080  RETURN
  46. ə